library(readxl)
Goodnessfit <- read_excel("~/SEMESTER II/PROBABILITY AND STATISTICS DATA ANALYSIS/ASSIGNMENT & PROJECT/PROJECT 2/Project 2 PSDA/Goodnessfit.xlsx")
View(Goodnessfit)

#calculation
x = Goodnessfit$Male
res <-chisq.test(x)
res
res$observed
res$expected
res$p.value

alpha <-0.05
x2.alpha<-qchisq(alpha, df=11,lower.tail=FALSE)
x2.alpha

